home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / modelers / geomview / source.lha / Geomview / data / groups / wholecube.geom < prev   
Encoding:
Text File  |  1993-08-12  |  4.0 KB  |  105 lines
  1. { # World
  2.   {INST  unit {
  3.       INST   geom {{ LIST # World list 
  4.           {# cube1 - blue / purple
  5.             INST   geom {appearance {
  6.                 material {
  7.                   ambient 0.494118 0 0.894118
  8.                   diffuse 0.494118 0 0.894118
  9.                 } 
  10.               }
  11.               geom INST
  12.               tlist { = TLIST
  13.                 1             0             0             0
  14.                 0             1             0             0
  15.                 0             0             1             0
  16.                 0             0             0             1
  17.                 
  18.               }
  19.               geom { = INST
  20.                 tlist { = TLIST
  21.                   1             0             0             0
  22.                   0             1             0             0
  23.                   0             0             1             0
  24.                   0             0            -1             1
  25.                   
  26.                   1             0             0             0
  27.                   0             1             0             0
  28.                   0             0             1             0
  29.                   0             0             1             1
  30.                   
  31.                 }
  32.                 geom < /u/fowler/sosgv/maniview/torus_open/cubesides.0081
  33.               }
  34.           } } # end (geom and INST) cube1
  35.           { # cube2 - green
  36.             INST   geom {appearance {
  37.                 material {
  38.                   ambient 0.094118 0.647059 0.400000
  39.                   diffuse 0.094118 0.847059 0.600000
  40.                 }
  41.               }
  42.               geom INST
  43.               tlist { = TLIST
  44.                 0             0            -1             0
  45.                 0             1             0             0
  46.                 1             0             0             0
  47.                 0             0             0             1
  48.                 
  49.               }
  50.               geom { = INST
  51.                 tlist { = TLIST
  52.                   1             0             0             0
  53.                   0             1             0             0
  54.                   0             0             1             0
  55.                   0             0            -1             1
  56.                   
  57.                   1             0             0             0
  58.                   0             1             0             0
  59.                   0             0             1             0
  60.                   0             0             1             1
  61.                   
  62.                 }
  63.                 geom < /u/fowler/sosgv/maniview/torus_open/cubesides.0081
  64.               }
  65.           } } # end (geom and INST) cube2
  66.           { # cube3 - yellow
  67.             INST   geom {appearance {
  68.                 material {
  69.                   ambient 0.894118 0.600000 0.000000
  70.                   diffuse 0.894118 0.600000 0.000000
  71.                 }
  72.               }
  73.               geom INST
  74.               tlist { = TLIST
  75.                 1             0             0             0
  76.                 0             0             1             0
  77.                 0            -1             0             0
  78.                 0             0             0             1
  79.                 
  80.               }
  81.               geom { = INST
  82.                 tlist { = TLIST
  83.                   1             0             0             0
  84.                   0             1             0             0
  85.                   0             0             1             0
  86.                   0             0            -1             1
  87.                   
  88.                   1             0             0             0
  89.                   0             1             0             0
  90.                   0             0             1             0
  91.                   0             0             1             1
  92.                   
  93.                 }
  94.                 geom < /u/fowler/sosgv/maniview/torus_open/cubesides.0081
  95.               }
  96.           } } # end (geom and INST) cube3
  97.         } #end of World List
  98.     } } 
  99.     transform
  100.     .5 0 0 0
  101.     0 .5 0 0
  102.     0 0 .5 0 
  103.     0 0 0 1
  104. } } # end of World and INST
  105.